home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / kabegami / kabe2.bas < prev    next >
BASIC Source File  |  1993-07-08  |  727b  |  26 lines
  1. 10 SCREEN@1 : CLS : RANDOMIZE TIME
  2. 20 '
  3. 30 FOR TP=0 TO 3
  4. 40    FOR I=0 TO 319
  5. 50       X1=I         : X2=319-I
  6. 60       LINE(X1,0)-(X2,239),PASTEL,[150,RND*150,RND*150]
  7. 70 NEXT
  8. 80    FOR I=0 TO 239
  9. 90       Y1=239-I         : Y2=I
  10. 100       LINE(0,Y1)-(319,Y2),PASTEL,[150,RND*150,RND*150]
  11. 110    NEXT
  12. 120 NEXT
  13. 130 ON ERROR GOTO *ERROR
  14. 140 SAVE@"tmenu.TIF",(0,0)-(319,239)
  15. 150 *ERROR
  16. 160 CLS : BEEP
  17. 170 IF ERR=64 THEN
  18. 180 PRINT "同じディレクトリに「ＴＭＥＮＵ．ＴＩＦ」が存在しています。"
  19. 190 PRINT "削除するか、別のところへ移動させてください"
  20. 200 ENDIF
  21. 210 IF ERR=65 THEN
  22. 220 PRINT "ディスクの空き容量が足りません。"
  23. 230 PRINT "削除するか、別のところへ移動させてください"
  24. 240 ENDIF
  25. 250 WAIT 500 : END
  26.